Résumé statistique et analyses uni et bi-variées de la base
Author
MATTE Angelo, PITTION Eli
Published
May 20, 2025
Cette synthèse présente les résultats de l’analyse visuelle de 309 affiches conservées entre les fonds des Archives nationales de France à Paris et la bibliothèque du Trinity College à Dublin. Cette étude a pour objectif l’examen des caractéristiques techniques et des altérations des affiches observées afin de déterminer la possible corrélation entre typologie d’affiche, mode d’affichage et altérations en présence.
couleurs <-c("bleu", "jaune", "lie de vin", "marron", "noir", "orange","rose", "rouge", "vert", "violet", "rouge fluo", "brun")liste_df <-list()nb_couleur <-c(7, 2, 2)for (i in1:3){# Sélection des colonnes pertinentes colonnes <-c(paste0("Type.de.média.", i),paste0("Couleur.", 1:nb_couleur[i], ".du.média.", i)) temp_couleur_par_media <- data_brute[, colonnes]# On rassemble toutes les colonnes de couleur dans un seul vecteur couleurs_media <-unlist(temp_couleur_par_media[, -1]) # on exclut Type.de.média couleurs_media <-as.character(couleurs_media)# Filtrer les couleurs valides couleurs_filtrees <- couleurs_media[couleurs_media %in% couleurs]# Compter les fréquences temp_count <-as.data.frame(table(couleurs_filtrees))names(temp_count) <-c("couleur", "frequence")# Stocker dans la liste liste_df[[i]] <- temp_count}# Initialiser un tableau avec toutes les couleursresult <-data.frame(couleur = couleurs)# Ajouter les fréquences de chaque médiafor (i in1:3) {# Fusionner avec le tableau de référence result <-merge(result, liste_df[[i]], by ="couleur", all.x =TRUE, sort =FALSE)# Renommer la colonne de fréquence ajoutéenames(result)[ncol(result)] <-paste0("frequence_media_", i)}# Remplacer les NA par 0 (pour les couleurs absentes)result[is.na(result)] <-0kable(result)
couleur
frequence_media_1
frequence_media_2
frequence_media_3
bleu
74
5
1
noir
157
26
1
rouge
138
16
1
orange
8
1
0
jaune
10
1
0
marron
24
1
0
vert
46
1
0
rouge fluo
0
1
0
rose
14
1
0
lie de vin
5
0
0
brun
0
0
0
violet
5
0
0
1.4 Couleur de surface
Code
couleur_surface <- data_brute$couleur.de.surfacetable_couleur_surface <-table(couleur_surface)kable(table_couleur_surface,col.names =c("Couleur de surface", "Nombre d'affiche"))
table_ss_encrassement <-data.frame(fonds =unique(ss_encrassement$Fonds),n_doc =tapply(ss_encrassement$Fonds, ss_encrassement$Fonds, length))table_avc_encrassement <-data.frame(fonds =unique(avc_encrassement$Fonds),n_doc =tapply(avc_encrassement$Fonds, avc_encrassement$Fonds, length))plot_ly(table_ss_encrassement,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents sans encrassement (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
plot_ly(table_avc_encrassement,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents avec encrassement (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
# altération / Nombre de documentss du fondsplot_ly(table_ss_encrassement,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% ss_encrassement$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents sans encrassement sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
plot_ly(table_avc_encrassement,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% avc_encrassement$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents avec encrassement sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
table_ss_depot <-data.frame(fonds =unique(ss_depot$Fonds),n_doc =tapply(ss_depot$Fonds, ss_depot$Fonds, length))table_avc_depot <-data.frame(fonds =unique(avc_depot$Fonds),n_doc =tapply(avc_depot$Fonds, avc_depot$Fonds, length))plot_ly(table_ss_depot,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents sans dépôt (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
plot_ly(table_avc_depot,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents avec dépôt (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
# altération / Nombre de documentss du fondsplot_ly(table_ss_depot,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% ss_depot$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents sans dépôt sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
plot_ly(table_avc_depot,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% avc_depot$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents avec dépôt sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
table_ss_tache <-data.frame(fonds =unique(ss_tache$Fonds),n_doc =tapply(ss_tache$Fonds, ss_tache$Fonds, length))table_avc_tache <-data.frame(fonds =unique(avc_tache$Fonds),n_doc =tapply(avc_tache$Fonds, avc_tache$Fonds, length))plot_ly(table_ss_tache,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents sans tache (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
plot_ly(table_avc_tache,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents avec tache (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
# altération / Nombre de documentss du fondsplot_ly(table_ss_tache,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% ss_tache$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents sans tache sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
plot_ly(table_avc_tache,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% avc_tache$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents avec tache sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
table_ss_aureole <-data.frame(fonds =unique(ss_aureole$Fonds),n_doc =tapply(ss_aureole$Fonds, ss_aureole$Fonds, length))table_avc_aureole <-data.frame(fonds =unique(avc_aureole$Fonds),n_doc =tapply(avc_aureole$Fonds, avc_aureole$Fonds, length))plot_ly(table_ss_aureole,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents sans auréole (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
plot_ly(table_avc_aureole,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents avec auréole (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
# altération / Nombre de documentss du fondsplot_ly(table_ss_aureole,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% ss_aureole$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents sans auréole sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
plot_ly(table_avc_aureole,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% avc_aureole$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents avec auréole sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
table_ss_trace_colle <-data.frame(fonds =unique(ss_trace_colle$Fonds),n_doc =tapply(ss_trace_colle$Fonds, ss_trace_colle$Fonds, length))table_avc_trace_colle <-data.frame(fonds =unique(avc_trace_colle$Fonds),n_doc =tapply(avc_trace_colle$Fonds, avc_trace_colle$Fonds, length))plot_ly(table_ss_trace_colle,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents sans trace de colle (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
plot_ly(table_avc_trace_colle,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents avec trace de colle (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
# altération / Nombre de documentss du fondsplot_ly(table_ss_trace_colle,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% ss_trace_colle$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents sans trace de colle sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
plot_ly(table_avc_trace_colle,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% avc_trace_colle$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents avec trace de colle sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
2.1.0.1 Croisement avec les autres types d’altérations
croisement_long <- reshape2::melt(as.matrix(croisement_colle))colnames(croisement_long) <-c("Altération", "Trace de colle", "Nombre de documents")plot_ly(data = croisement_long,x =~`Trace de colle`,y =~Altération,z =~`Nombre de documents`,type ="heatmap",colors =colorRamp(c("white", "darkred"))) %>%layout(title ="Croisement entre les traces de colle et les autres altérations",xaxis =list(title ="Présence de trace de colle"),yaxis =list(title ="Altération"),margin =list(l =100))
table_ss_lacunes <-data.frame(fonds =unique(ss_lacunes$Fonds),n_doc =tapply(ss_lacunes$Fonds, ss_lacunes$Fonds, length))table_avc_lacunes <-data.frame(fonds =unique(avc_lacunes$Fonds),n_doc =tapply(avc_lacunes$Fonds, avc_lacunes$Fonds, length))plot_ly(table_ss_lacunes,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents sans lacune (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
Code
plot_ly(table_avc_lacunes,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents avec lacune (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
# altération / Nombre de documentss du fondsplot_ly(table_ss_lacunes,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% ss_lacunes$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents sans lacune sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
Code
plot_ly(table_avc_lacunes,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% avc_lacunes$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents avec lacune sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
table_ss_perforation <-data.frame(fonds =unique(ss_perforation$Fonds),n_doc =tapply(ss_perforation$Fonds, ss_perforation$Fonds, length))table_avc_perforation <-data.frame(fonds =unique(avc_perforation$Fonds),n_doc =tapply(avc_perforation$Fonds, avc_perforation$Fonds, length))plot_ly(table_ss_perforation,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents sans perforation (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
plot_ly(table_avc_perforation,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents avec perforation (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
# altération / Nombre de documentss du fondsplot_ly(table_ss_perforation,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% ss_perforation$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents sans perforation sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
plot_ly(table_avc_perforation,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% avc_perforation$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents avec perforation sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
table_ss_plis <-data.frame(fonds =unique(ss_plis$Fonds),n_doc =tapply(ss_plis$Fonds, ss_plis$Fonds, length))table_avc_plis <-data.frame(fonds =unique(avc_plis$Fonds),n_doc =tapply(avc_plis$Fonds, avc_plis$Fonds, length))plot_ly(table_ss_plis,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents sans plis (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
plot_ly(table_avc_plis,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents avec plis (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
# altération / Nombre de documentss du fondsplot_ly(table_ss_plis,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% ss_plis$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents sans plis sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
plot_ly(table_avc_plis,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% avc_plis$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents avec plis sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
table_ss_gondolement <-data.frame(fonds =unique(ss_gondolement$Fonds),n_doc =tapply(ss_gondolement$Fonds, ss_gondolement$Fonds, length))table_avc_gondolement <-data.frame(fonds =unique(avc_gondolement$Fonds),n_doc =tapply(avc_gondolement$Fonds, avc_gondolement$Fonds, length))plot_ly(table_ss_gondolement,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents sans gondolement (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
plot_ly(table_avc_gondolement,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents avec gondolement (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
# altération / Nombre de documentss du fondsplot_ly(table_ss_gondolement,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% ss_gondolement$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents sans gondolement sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
plot_ly(table_avc_gondolement,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% avc_gondolement$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents avec gondolement sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
table_ss_delamination <-data.frame(fonds =unique(ss_delamination$Fonds),n_doc =tapply(ss_delamination$Fonds, ss_delamination$Fonds, length))table_avc_delamination <-data.frame(fonds =unique(avc_delamination$Fonds),n_doc =tapply(avc_delamination$Fonds, avc_delamination$Fonds, length))plot_ly(table_ss_delamination,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents sans delamination (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
plot_ly(table_avc_delamination,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents avec delamination (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
# altération / Nombre de documentss du fondsplot_ly(table_ss_delamination,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% ss_delamination$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents sans delamination sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
plot_ly(table_avc_delamination,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% avc_delamination$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents avec delamination sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
table_ss_coupure <-data.frame(fonds =unique(ss_coupure$Fonds),n_doc =tapply(ss_coupure$Fonds, ss_coupure$Fonds, length))table_avc_coupure <-data.frame(fonds =unique(avc_coupure$Fonds),n_doc =tapply(avc_coupure$Fonds, avc_coupure$Fonds, length))plot_ly(table_ss_coupure,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents sans coupure (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
plot_ly(table_avc_coupure,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents avec coupure (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
Code
# altération / Nombre de documents du fondsplot_ly(table_ss_coupure,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% ss_coupure$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents sans coupure sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
plot_ly(table_avc_coupure,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% avc_coupure$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents avec coupure sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
Code
table_ss_dechirure <-data.frame(fonds =unique(ss_dechirure$Fonds),n_doc =tapply(ss_dechirure$Fonds, ss_dechirure$Fonds, length))table_avc_dechirure <-data.frame(fonds =unique(avc_dechirure$Fonds),n_doc =tapply(avc_dechirure$Fonds, avc_dechirure$Fonds, length))plot_ly(table_ss_dechirure,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents sans déchirure (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
plot_ly(table_avc_dechirure,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents avec déchirure (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
# altération / Nombre de documents du fondsplot_ly(table_ss_dechirure,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% ss_dechirure$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents sans déchirure sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
plot_ly(table_avc_dechirure,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% avc_dechirure$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents avec déchirure sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
table_ss_abrasion <-data.frame(fonds =unique(ss_abrasion$Fonds),n_doc =tapply(ss_abrasion$Fonds, ss_abrasion$Fonds, length))table_avc_abrasion <-data.frame(fonds =unique(avc_abrasion$Fonds),n_doc =tapply(avc_abrasion$Fonds, avc_abrasion$Fonds, length))plot_ly(table_ss_abrasion,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents sans abrasion (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
plot_ly(table_avc_abrasion,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents avec abrasion (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
Code
# altération / Nombre de documentss du fondsplot_ly(table_ss_abrasion,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% ss_abrasion$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents sans abrasion sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
plot_ly(table_avc_abrasion,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% avc_abrasion$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents avec abrasion sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
Code
table_ss_fuse <-data.frame(fonds =unique(ss_fuse$Fonds),n_doc =tapply(ss_fuse$Fonds, ss_fuse$Fonds, length))table_avc_fuse <-data.frame(fonds =unique(avc_fuse$Fonds),n_doc =tapply(avc_fuse$Fonds, avc_fuse$Fonds, length))plot_ly(table_ss_fuse,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents sans migration d'encre (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Code
plot_ly(table_avc_fuse,x =~fonds,y =~n_doc,color =~fonds,type ="bar") %>%layout(title ="Nombre de documents avec migration d'encre (stock)",xaxis =list(title ="Fonds"),yaxis =list(title ="Nombre de documents"))
Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
Code
# altération / Nombre de documentss du fondsplot_ly(table_ss_fuse,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% ss_fuse$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents sans migration d'encre sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Code
plot_ly(table_avc_fuse,x =~fonds,y =~n_doc / n_doc_par_fonds[n_doc_par_fonds$Fonds %in% avc_fuse$Fonds , "nb_doc"],color =~fonds,type ="bar") %>%layout(title ="Part de documents avec migration d'encre sur l'ensemble des affiches du fonds",xaxis =list(title ="Fonds"),yaxis =list(title ="Part de documents"))
Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels